
(RUN 5)

1 LET x=x+(INKEY$="p" AND x<26)-(INKEY$="o" AND x>3): PRINT AT v,w; INK 1;"\b";AT 21,x; INK 7;" \a ": IF e<6 THEN GO TO 6
2 IF INKEY$=" " THEN PLOT x*8+12,50: DRAW INK 4;0,50 : BEEP .1,37: DRAW INK 0;0,-50: IF w=x+1 THEN PRINT AT v,w; INK 2;"\'.": BORDER 
2: BEEP .1,-37: BORDER 0: LET p=p+1: PRINT #0;AT 1,0; PAPER 6; INK 0;p: LET c=1: PRINT AT v,w;" ": LET v=3+INT (RND*9): LET w=6+INT (RND*22): GO TO 1

3 LET c=c+(RND*55)-p/10: IF c>(27+w)*v*2 THEN FOR z=v+1 TO 20: PRINT AT z,w; INK 3;"\c": BEEP .01,1: PRINT AT z,w;" ": NEXT z: PRINT AT v,w;" ": LET c=1: BORDER 2: BEEP .1,-e: BORDER 0: LET e=e-2 OR x+1=w: LET v=3+INT (RND*9): LET w=6+INT (RND*22): PRINT #0;AT 1,e; PAPER 5;"  "

4 GO TO 1

5 RANDOMIZE : RESTORE 5: BORDER 0: PAPER 0: INK 7: CLS : PRINT AT 20,11; PAPER 3; INK 0;"azimov2020": LET h=0: LET p=0: FOR a=USR "a" TO USR "c"+7: READ b: POKE a,b: NEXT a: DATA 24,189,165,231,219,255,219,66,24,36,126,255,102,60,66,66,66,66,66,66,66,66,66,66

6 PRINT AT 2,11; INK 2;"BEST CREW"; INK 7;AT 5,7;"MrGalamond.....999";AT 7,7;"Tom.Atprez.....999";AT 9,7;"AsteroideZX....999";AT 11,7;"Beyker.........999";AT 13,7;"TokuRetro......999";AT 15,7;"Druida8bits....999";AT 17,7;"Kerl...........999": FOR z=0 TO 366: NEXT z: IF p>h THEN LET h=p

7 BORDER 0: PAPER 0: INK 7: CLS : LET x=15: LET w= 6+INT (RND*22): LET c=1: LET p=0: LET e=28: PRINT AT 15,12;"O+P+SPACE": PRINT #0;AT 1,10; INK 6;"HIGHSCORE:";h: PRINT INK 1;AT 5,6;"*    **   ** *** ***            *   *  * *   *   * *            *   ****  ** **  **             *   *  *   * *   * *            *** *  * **  *** * *              "; INK 5;"IN 9 BASIC LINES"

8 IF INKEY$="" THEN FOR z=1 TO 4: BEEP .1,-15: BORDER 7: BORDER 0: BORDER 7: BORDER 0: NEXT z: FOR z=1 TO 2: BEEP .1,-20: BORDER 7: BORDER 0: BORDER 7: BORDER 0: NEXT z: FOR z=1 TO 2: BEEP .1,-17: BORDER 7: BORDER 0: BORDER 7: BORDER 0: NEXT z: GO TO 8

9 FOR z=5 TO 15: PRINT AT z,0,,: NEXT z: PRINT #0;AT 1,4; PAPER 2,"            ": LET v=3+INT (RND*9): GO TO 1
